function save_array(filename,A,format)
%save_array Summary of this function goes here
%   Detailed explanation goes here
if nargin==2
    format = '%13.6e';
end

dlmwrite(filename,A,'delimiter',',','precision',format);
end

